10 REM SOUND ALIKE WORDS   SAW 3
20 REM THIS UNIT PREPARED BY:                  BILL CUMBERLAND  08:05:89
30 GOTO90
40 PRINT"     [208]RESS [211][208][193][195][197] [194][193][210] TO CONTINUE
41 [161]R$:[139]R$[179][177][199](32)[167]41
42 [142]
50 [143] <BLIP> SOUND
51 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
52 [151]54296,7:[151]54277,42:[151]54278,250
53 [151]54276,23:[151]54273,23:[151]54272,191
54 [129]T[178]1[164]30:[130]:[151]54276,32:[129]T[178]1[164]50:[130]
55 [151]54296,0:[142]
60 [143] <YES> SOUND
61 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
62 [151]54296,15:[151]54277,42:[151]54278,250
63 [151]54276,23:[151]54273,23:[151]54272,191
64 [129]T[178]1[164]100:[130]:[151]54276,32:[129]T[178]1[164]200:[130]
65 [151]54296,0:[142]
70 [143] <NO> SOUND
71 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
72 [151]54296,15:[151]54277,18:[151]54278,242
73 [151]54276,33:[151]54273,4:[151]54272,48
74 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]400:[130]
75 [129]E[178]S[164]S[170]28:[151]E,0:[130]:[142]
81 [129]T[178]1[164]1000:[130]:[142]
82 [129]T[178]1[164]2000:[130]:[142]
83 [129]T[178]1[164]3000:[130]:[142]
84 [129]T[178]1[164]4000:[130]:[142]
85 [129]T[178]1[164]5000:[130]:[142]
86 [153]"    (null)RESS (null)(null)ATNLENVAL PEEKATN(null) TO START.
87 GETR$:IFR$<>CHR$(32)THEN87
88 RETURN
89 :
90 POKE53280,11:POKE53281,11:POKE646,3:POKE53272,23
105 PRINT"[147]          [211][207][213][206][196][160][193][204][201][203][197][160][215][207][210][196][211]":GOSUB81:GOSUB50
110 PRINT"             [213]NIT  [211][193][215] 3 ":GOSUB82
115 PRINT"[147]    [200]ERE ARE 20 QUESTIONS WITH WORDS        THAT SOUND ";
120 PRINT"ALIKE BUT ARE NOT.":GOSUB82
125 PRINT"    [212]EST YOURSELF.":GOSUB81
130 PRINT"    [199]OOD LUCK!":GOSUB81:GOSUB50
135 PRINT"    [208]RESS [211][208][193][195][197] [194][193][210][159] TO CONTINUE     [156]P[159]"
140 GETR$:IFR$<>CHR$(32)AND R$<>"P"THEN140
145 IFR$=CHR$(32)THEN1000
200 PRINT"[147]  [212]HESE ARE THE WORDS USED IN [211][193][215] 3:
205 [153]"   KNOW  /  N      .   EYE  /  RIGHT$
210 PRINT"    SUN  /  SON    .  WEAK  /  WEEK
215 [153]"   BEAR  /  BARE   .  FAIR  /  FARE
220 PRINT"    FIR  /  FUR    .  HEEL  /  HEAL
225 [153]"    RED  /  READ   .   BEE  /  BE "
290 [141]83:[141]50:[141]86
1000 [153]"SYSLOAD 1 * (null)HE DID NOT [     ] WHO (null)OM WAS."
1005 [153]"      KNOW   *   NO    OPEN"
1010 [153]"   (null)YPE IN THE MISSING WORD."
1015 [133]" ";A$
1020 [139]A$[178]"KNOW"[167]1040
1025 WR[178]WR[170]1
1030 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1000
1040 [153]"   LENORRECT!OPEN":[141]60:[141]82
1050 [153]"SYSLOAD 2 * (null)OW HE HAS [    ] BOOKS."
1055 [153]"      KNOW   *   NO    OPEN"
1060 [153]"   (null)YPE IN THE MISSING WORD."
1065 [133]" ";A$
1070 [139]A$[178]"NO"[167]1090
1075 WR[178]WR[170]1
1080 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1050
1090 [153]"   LENORRECT!OPEN":[141]60:[141]82
1100 [153]"SYSLOAD 3 * (null)HE DUST FLEW INTO MY [     ]."
1105 [153]"      EYE    *    RIGHT$   OPEN"
1110 [153]"   (null)YPE IN THE MISSING WORD."
1115 [133]" ";A$
1120 [139]A$[178]"EYE"[167]1140
1125 WR[178]WR[170]1
1130 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1100
1140 [153]"   LENORRECT!OPEN":[141]60:[141]82
1150 [153]"SYSLOAD 4 * (null)OW [    ] CAN'T SEE! "
1155 [153]"      EYE    *    RIGHT$   OPEN"
1160 [153]"   (null)YPE IN THE MISSING WORD."
1165 [133]" ";A$
1170 [139]A$[178]"RIGHT$"[167]1190
1175 WR[178]WR[170]1
1180 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1150
1190 [153]"   LENORRECT!OPEN":[141]60:[141]82
1200 [153]"SYSLOAD 5 * LEFT$E TOOK HIS [    ] FISHING."
1205 [153]"      SUN    *   SON    OPEN"
1210 [153]"   (null)YPE IN THE MISSING WORD."
1215 [133]" ";A$
1220 [139]A$[178]"SON"[167]1240
1225 WR[178]WR[170]1
1230 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1200
1240 [153]"   LENORRECT!OPEN":[141]60:[141]82
1250 [153]"SYSLOAD 6 * (null)HE [   ] SHONE BRIGHTLY."
1255 [153]"      SUN    *    SON    OPEN"
1260 [153]"   (null)YPE IN THE MISSING WORD."
1265 [133]" ";A$
1270 [139]A$[178]"SUN"[167]1290
1275 WR[178]WR[170]1
1280 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1250
1285 [153]"DEFON   (null)RY AGAIN.   OPEN":[141]70:[137]1265
1290 [153]"   LENORRECT!OPEN":[141]60:[141]82
1295 W[178]0
1300 [153]"SYSLOAD 7 * (null)OME TREES ARE [    ] IN WINTER."
1305 [153]"      BEAR   *    BARE   OPEN"
1310 [153]"   (null)YPE IN THE MISSING WORD."
1315 [133]" ";A$
1320 [139]A$[178]"BARE"[167]1340
1325 WR[178]WR[170]1
1330 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1300
1340 [153]"   LENORRECT!OPEN":[141]60:[141]82
1350 [153]"SYSLOAD 8 * (null)HIS PAIN IS HARD TO [    ]."
1355 [153]"      BEAR    *    BARE  OPEN"
1360 [153]"   (null)YPE IN THE MISSING WORD."
1365 [133]" ";A$
1370 [139]A$[178]"BEAR"[167]1390
1375 WR[178]WR[170]1
1380 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1400
1390 [153]"   LENORRECT!OPEN":[141]60:[141]82
1400 [153]"SYSLOAD 9 * (null)HE (null)IKINGS HAD [    ] HAIR."
1405 [153]"      FAIR    *    FARE  OPEN"
1410 [153]"   (null)YPE IN THE MISSING WORD."
1415 [133]" ";A$
1420 [139]A$[178]"FAIR"[167]1440
1425 WR[178]WR[170]1
1430 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1400
1440 [153]"   LENORRECT!OPEN":[141]60:[141]82
1450 [153]"SYSLOAD10 * STR$ID YOU PAY YOUR [    ] ON THE BUS?"
1455 [153]"      FAIR    *    FARE OPEN"
1460 [153]"   (null)YPE IN THE MISSING WORD."
1465 [133]" ";A$
1470 [139]A$[178]"FARE"[167]1490
1475 WR[178]WR[170]1
1480 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1450
1490 [153]"   LENORRECT!OPEN":[141]60:[141]82
1500 [153]"SYSLOAD11 * (null)HE [     ] TREE IS AN EVERGREEN."
1505 [153]"      FUR     *     FIR         OPEN"
1510 [153]"   (null)YPE IN THE MISSING WORD."
1515 [133]" ";A$
1520 [139]A$[178]"FIR"[167]1540
1525 WR[178]WR[170]1
1530 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1500
1540 [153]"   LENORRECT!OPEN":[141]60:[141]82
1550 [153]"SYSLOAD12 * (null)HE BEAVER HAS SOFT [    ]."
1555 [153]"      FUR     *     FIR  OPEN"
1560 [153]"   (null)YPE IN THE MISSING WORD."
1565 [133]" ";A$
1570 [139]A$[178]"FUR"[167]1590
1575 WR[178]WR[170]1
1580 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1600
1590 [153]"   LENORRECT!OPEN":[141]60:[141]82
1600 [153]"SYSLOAD13 * (null)HE LOST THE [    ] OF HER SHOE."
1605 [153]"      HEAL  *   HEEL OPEN"
1610 [153]"   (null)YPE IN THE MISSING WORD."
1615 [133]" ";A$
1620 [139]A$[178]"HEEL"[167]1640
1625 WR[178]WR[170]1
1630 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1600
1640 [153]"   LENORRECT!OPEN":[141]60:[141]82
1650 [153]"SYSLOAD14 * RIGHT$ HOPE YOUR CUT TOE WILL [     ]."
1655 [153]"      HEAL   *   HEEL  OPEN"
1660 [153]"   (null)YPE IN THE MISSING WORD."
1665 [133]" ";A$
1670 [139]A$[178]"HEAL"[167]1690
1675 WR[178]WR[170]1
1680 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1650
1690 [153]"   LENORRECT!OPEN":[141]60:[141]82
1700 [153]"SYSLOAD15 * (null)HE CAT WANTS [     ] SUPPER."
1705 [153]"      ITS    *    IT'S        OPEN"
1710 [153]"   (null)YPE IN THE MISSING WORD."
1715 [133]" ";A$
1720 [139]A$[178]"ITS"[167]1740
1725 WR[178]WR[170]1
1730 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1700
1740 [153]"   LENORRECT!OPEN":[141]60:[141]82
1750 [153]"SYSLOAD16 * [    ] TIME TO GO HOME."
1755 [153]"      ITS    *    IT'S   OPEN"
1760 [153]"   (null)YPE IN THE MISSING WORD."
1765 [133]" ";A$
1770 [139]A$[178]"IT'S"[167]1790
1775 WR[178]WR[170]1
1780 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1750
1790 [153]"   LENORRECT!OPEN":[141]60:[141]82
1800 [153]"SYSLOAD17 * (null)HE BAND [     ] THE PARADE."
1805 [153]"      LED    *    LEAD  OPEN"
1810 [153]"   (null)YPE IN THE MISSING WORD."
1815 [133]" ";A$
1820 [139]A$[178]"LED"[167]1840
1825 WR[178]WR[170]1
1830 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1800
1840 [153]"   LENORRECT!OPEN":[141]60:[141]82
1850 [153]"SYSLOAD18 * RIGHT$T'S AS HEAVY AS [     ]."
1855 [153]"      LED     *    LEAD  OPEN"
1860 [153]"   (null)YPE IN THE MISSING WORD."
1865 [133]" ";A$
1870 [139]A$[178]"LEAD"[167]1890
1875 WR[178]WR[170]1
1880 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1850
1890 [153]"   LENORRECT!OPEN":[141]60:[141]82
1900 [153]"SYSLOAD19 * MID$IM BEGAN TO FEEL VERY [     ]."
1905 [153]"      WEEK    *    WEAK  OPEN"
1910 [153]"   (null)YPE IN THE MISSING WORD."
1915 [133]" ";A$
1920 [139]A$[178]"WEAK"[167]1940
1925 WR[178]WR[170]1
1930 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1900
1940 [153]"   LENORRECT!OPEN":[141]60:[141]82
1950 [153]"SYSLOAD20 * MID$IM MISSED A [     ] OF SCHOOL."
1955 [153]"      WEEK    *    WEAK   OPEN"
1960 [153]"   (null)YPE IN THE MISSING WORD."
1965 [133]" ";A$
1970 [139]A$[178]"WEEK"[167]1990
1975 WR[178]WR[170]1
1980 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1950
1990 [153]"   LENORRECT!OPEN":[141]60:[141]82
2000 [153]"LOAD                  (null)ATN(null) 3 WAIT
2005 PRINT"   [217]OU HAVE COMPLETED 20 QUESTIONS.":GOSUB81
2010 PRINT"   [217]OU MADE "WR" MISTAKES.
2015 [139] WR[178]0[167][153]"    VALXCELLENT WORK!
2020 IF WR=1THENPRINT"    VERY GOOD WORK
2025 [139] WR[178]2[167][153]"    CHR$OOD WORK - BUT YOU CAN DO BETTER.
2030 IF WR=3THENPRINT"    [211]URELY, YOU CAN DO BETTER THAN THIS.
2035 [139] W[177]3[167][153]"    (null)LEASE TELL YOUR TEACHER THAT YOU       NEED HELP.
2040 GOSUB82:GOSUB50:GOSUB40
2045 PRINT"    [208]RESS [211][208][193][195][197][160][194][193][210] TO CONTINUE
2050 [161]R$:[139]R$[179][177][199](32)[167]2050
2055 [153]"LOAD (null)ETURNING TO THE DISK MENU
2060 LOAD"MENU",8
2065 RUN
2070 END
3000 REM WHC 90:06:11/91:01:05